﻿Public Class uscToolTip
    Public TableID As String
    Private Sub uscToolTip_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If TableID <> "" Then
            Dim arName As New ArrayList
            arName.Add("@TABLEID")
            Dim arVal As New ArrayList
            arVal.Add(TableID)

            Dim dtTable As DataTable = BLL.ObjectGetBy("RESERVATION_LIST_BYTABLE", arName, arVal)
            grReservation.DataSource = dtTable

            'For i As Integer = 0 To dtTable.Rows.Count - 1
            '    lbReservationList.Items.Add(dtTable.Rows(i).Item("CUS_NAME").ToString + "-" + dtTable.Rows(i).Item("RES_DATE").ToString)
            'Next
        End If
    End Sub
End Class
